home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LImacSTACK-8⁄89.cpt / Functions Part2 / card_3824.txt < prev    next >
Text File  |  1989-08-04  |  1KB  |  60 lines
  1. -- card: 3824 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2687
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=48 top=153 right=175 bottom=148
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: Play then go
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   push cd
  23.   play "harpsichord" tempo 120 "e5e d# e d# e b4 d5 c a4 a2e c3 e a"
  24.   go first
  25.   pop cd
  26. end mouseUp
  27.  
  28.  
  29.  
  30. -- part 2 (button)
  31. -- low flags: 00
  32. -- high flags: 8003
  33. -- rect: left=48 top=179 right=201 bottom=148
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 1
  37. -- font id: 3
  38. -- text size: 9
  39. -- style flags: 0
  40. -- line height: 12
  41. -- part name: Play with wait
  42. ----- HyperTalk script -----
  43. on mouseUp
  44.   push cd
  45.   play "harpsichord" tempo 120 "e5e d# e d# e b4 d5 c a4 a2e c3 e a"
  46.   wait until the sound is "done"
  47.   go first
  48.   pop cd
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part contents for background part 8
  54. ----- text -----
  55. the sound
  56.  
  57. -- part contents for background part 18
  58. ----- text -----
  59. The name of the sound resource that is playing.
  60. Returns "done" if no sound is playing.